home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / xtras / pomlite.dir / Internal_6_docs.ls < prev    next >
Encoding:
Text File  |  1996-10-06  |  442 b   |  19 lines
  1. on mouseUp
  2.   cursor(4)
  3.   set doc to new(xtra("printomatic_lite"))
  4.   if not objectp(doc) then
  5.     exit
  6.   end if
  7.   setDocumentName(doc, "PrintOMatic Lite Documentation")
  8.   append(doc, sprite(2), member "illustration", castLib "documentation")
  9.   cursor(-1)
  10.   if word 1 of the text of the member of sprite the clickOn = "print" then
  11.     if doJobSetup(doc) then
  12.       print(doc)
  13.     end if
  14.   else
  15.     printPreview(doc)
  16.   end if
  17.   set doc to 0
  18. end
  19.